perm filename UNPACK.FAI[MUS,LCS] blob sn#053269 filedate 1974-01-08 generic text, type T, neo UTF8
00100	TITLE UNPACK
00200		INTERNAL UNPACK
00300	;CALL UNPACK(WORD,S1,S2,S3)
00310	
00320	A ← 1
00400	
00500	 UNPACK:	0
00600		MOVE A,[POINT 12,@(16)]
00700		ILDB 0,A
00800		MOVEM 0,@1(16)
00900		ILDB 0,A
01000		MOVEM 0,@2(16)
01100		ILDB 0,A
01200		MOVEM 0,@3(16)
01300		JRA 16,4(16)
02300		END